home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / promal-trig.s < prev    next >
Text File  |  2007-02-28  |  270b  |  22 lines
  1. PROGRAM TRIG             
  2. ;
  3. INCLUDE LIBRARY
  4. INCLUDE REALFUNCS     
  5. ;
  6. WORD PRTR
  7. WORD ITER   
  8. DATA REAL A = .1
  9. DATA REAL B = .2
  10. REAL C  
  11. ;      
  12. BEGIN
  13. PRTR=OPEN("P",'W')
  14. FOR ITER=1 TO 1000
  15.   C=SIN(A/B)*COS(A/B)
  16. OUTPUTF PRTR," C=#12.10R#C",C
  17. OUTPUT " C=#12.10R",C
  18. ;
  19. END
  20.  
  21.  
  22.